Subject: re: Mod()
From: "Barry D. Wills" <[email-masked]>
To: "amigae" <[email-masked]>
Date: 14 Jul 93 07:13:00 CST

Yeah, Jason.  I got the same thing from mod.  According to E21b (on *my*
computer) Mod (40000001, 400) = 610.  Here's a mod() function I wrote:

----- CUT HERE ----------------------------------------------------------------

PROC mod (this, bythis) RETURN this - Mul (Div (this, bythis), bythis)

PROC main ()
  WriteF ('Mod (40000001, 400) = \d\n', Mod (40000001, 400))
  WriteF ('mod (40000001, 400) = \d\n', mod (40000001, 400))
ENDPROC

----- CUT HERE ----------------------------------------------------------------

This program's output is:

Mod (40000001, 400) = 610
mod (40000001, 400) = 1

Later.  -- Barry